$demlib list
!lst = file

!ifdef lst 

$dialog select title "Удаление карты высот" text !lst ok "Удалить"
!path = select

!ifdef path

$demlib del file !path

!delete path
!endif

!delete lst
!endif
